home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 3 / Cream of the Crop 3.iso / comm / thor12.zip / THOR.LHA / rexx / PurgeEvents.thor < prev    next >
Text File  |  1994-03-03  |  754b  |  35 lines
  1. /* PurgeEvents.thor ╖ by Troels Walsted Hansen
  2. ** $VER: PurgeEvents.thor v1.1 (23.02.94)
  3. **
  4. ** Remove all events at one BBS in THOR.  Useful when testing
  5. ** event creating scripts.  :)
  6. */
  7.  
  8. options results
  9.  
  10. if(substr(address(),1,4) ~= "THOR") then do
  11.     parse arg portname
  12.     if~(show(p, portname)) then do
  13.         if ~(show(p, "THOR.01")) then do
  14.             say "No THOR port found!"
  15.             exit
  16.         end
  17.         else portname = "THOR.01"
  18.     end
  19. end
  20. else portname = address()
  21.  
  22. address(portname)
  23.  
  24. REQUESTLIST BBSLIST
  25. bbsname = result
  26. if(rc ~= 0 | bbsname = "RESULT") then exit
  27.  
  28. REQUESTNOTIFY TEXT '"'||'Do you really want to delete all events at '||bbsname||?'"' BT '"_Yes|_No"'
  29. if(result = 0) then exit
  30.  
  31. address command "thor:bin/ScriptServ "||'"'bbsname||'"'" PACKAGEDONE"
  32. RESCAN
  33.  
  34. exit
  35.